home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_geomview.idb / usr / freeware / lib / geomview / maple / remotegv.z / remotegv
Encoding:
Text File  |  1999-01-26  |  4.5 KB  |  136 lines
  1. #! /bin/sh
  2.  
  3. # Invoke geomview possibly remotely.
  4. # For use within Maple, install this remotegv script somewhere in users'
  5. # search paths (e.g. in /usr/local/bin).
  6. # This script attempts to guess which machine to invoke geomview on by
  7. # examining the DISPLAY environment variable.  If DISPLAY isn't set or
  8. # if geomview should run on a different machine, use the -h host option.
  9. #
  10. # The script also assumes that geomview should display on the machine where
  11. # it is invoked, so for that copy of geomview, it sets DISPLAY to ":0".
  12. # If the display should appear elsewhere (on an X terminal, say),
  13. # use the -display option.
  14. #
  15. # We use "rsh" (remote shell) to pass data to the other computer, so 
  16. # the remote computer must allow this -- either with an entry in
  17. # /etc/hosts.equiv, or in a .rhosts file in the user's home directory
  18. # on the machine where geomview will run.  The account name on the other
  19. # machine is assumed to be the same as on this machine; if different,
  20. # use the -l username or -h username@othermachine options.
  21. #
  22. # In case permissions are not set up correctly, the symptom
  23. # is liable to be a "Permission denied." message followed by the
  24. # immediate termination of the Maple process -- so if you're using it for
  25. # the first time, check it out before doing much else in your Maple session!
  26. # Sorry, but MapleV3 is just not very good at connecting to other programs.
  27. #
  28. # Note that togeomview and geomview MUST BE IN THE USER'S DEFAULT SEARCH PATH
  29. # on the remote machine.
  30. #
  31. # To use this script within Maple, you'd say:
  32. #    readlib(gvplot);
  33. # then
  34. #    gvcommand := `remotegv`;
  35. # or e.g.
  36. #    gvcommand := `remotegv -h othermachine -display myxterm:0`;
  37. # or, if the account on the other machine is different from yours,
  38. #    gvcommand := `remotegv -l otheraccount`;
  39. # or
  40. #    gvcommand := `remotegv -h otheraccount@othermachine`;
  41. # Following any remotegv options, you can add the command to be invoked as
  42. # geomview, possibly including options, as in:
  43. #    gvcommand := `remotegv -l person /u/person/bin/gv -wpos 300x200`;
  44. #
  45. # Then use gvplot() as usual.
  46. #
  47. # Normally, error messages reporting problems on the other machine (for
  48. # example, being unable to run geomview) are suppressed; this is unfortunately
  49. # necessary, or you'd never get another Maple prompt until quitting from
  50. # geomview.  There's a test mode to aid in tracing problems; use it as in
  51. #    gvcommand := `remotegv -test -h othermachine`;
  52. # i.e. add "-test" to whatever other options you'd give to remotegv.
  53. # 
  54. # Option summary:
  55. # -l user  or  -l user@host
  56. # -h host  or  -h user@host
  57. # -display host:number        (set display on remote end)
  58. # -test
  59. # also accepts togeomview's options (-g, -M[c][g][p][s]).
  60.  
  61. # Invokes rsh to specified machine, invokes togeomview there by default.
  62. #
  63. # By default, we assume DISPLAY points to the machine where we'd like to be;
  64. #   -h {host-portion-of-DISPLAY} -display :0
  65. # Incorporates settings from "$RGVOPTS" environment variable.
  66.  
  67. set -- $RGVOPTS "$@"
  68.  
  69. while
  70.   case "$1" in
  71.   -l)
  72.     case "$2" in
  73.     *@*) user="`expr match "$2" '\([^@]*\)'`"
  74.          host="`expr match "$2" '.*@\(.*\)'`" ;;
  75.     *) user="$2" ;;
  76.     esac
  77.     shift 2 ;;
  78.  
  79.   -h)   case "$2" in
  80.     *@*) user="`expr match "$2" '\([^@]*\)'`"
  81.          host="`expr match "$2" '.*@\(.*\)'`" ;;
  82.     *) host="$2" ;;
  83.     esac
  84.     shift 2 ;;
  85.  
  86.   -test) testopt=-test; shift ;;
  87.   -display) rdisplay="$2"; shift 2 ;;
  88.   -M*) togvopts="$togvopts $1";
  89.      inpipe="$2"
  90.      shift 2 ;;
  91.   -g)  gopt=-g; shift ;;
  92.   "") test ;;
  93.   *) togvargs="$togvargs $1"; shift ;;
  94.   esac
  95. do :
  96. done
  97.  
  98. # Apply defaults
  99.  
  100. if [ -z "$host" ]; then
  101.   host="`expr match "$DISPLAY" '\([^:]*\)'`"
  102. fi
  103.  
  104. if [ -z "$rdisplay" ]; then
  105.   rdisplay=":0.0"
  106. fi
  107.  
  108. case "$inpipe" in
  109.   /*) ;;
  110.   ?*) inpipe=/tmp/geomview/$inpipe ;;
  111. esac
  112.  
  113. user=${user+"-l $user"}
  114. cmd="${host+rsh $host $user}"
  115.  
  116. if [ -n "$host" ]; then
  117.   redirect=">/dev/null 2>&1"
  118.   if [ -n "$testopt" ]; then
  119.     echo "Testing setup to $host.  If geomview or togeomview can't be started
  120. there, you should see messages explaining why.  Unfortunately this command
  121. may not finish on its own -- you may need to interrupt (perhaps with control-C)
  122. after seeing the results, before you get another Maple prompt." >&2
  123.     redirect=""
  124.   fi
  125.   if [ -n "$inpipe" ]; then
  126.     rsh $host $user sh -c "\"DISPLAY=$rdisplay togeomview $gopt ${togvopts} $inpipe $togvargs $redirect\"" <$inpipe
  127.   else
  128.     rsh $host $user sh -c "\"DISPLAY=$rdisplay togeomview $gopt ${togvopts} $togvargs $redirect\""
  129.   fi
  130. else
  131.   case "$1" in
  132.     ""|-*) DISPLAY=$rdisplay geomview ${togvopts} $togvargs ;;
  133.     *) DISPLAY=$rdisplay ${togvopts} $togvargs;;
  134.   esac
  135. fi
  136.